Dim ctr as Integer
Dim word as integer
Dim vowel as integer
Dim v as string

Privite sub cmdgo_click()
word=len(txtword.text)
Vowel=0
For ctr=1 to word
V=lcase (mid(txtword.text,ctr,1))
Select Case V
Case "a","e","i","o","u"
Vowel = vowet + 1
End select
Next ctr
Lblvowel.caption = "num of vowel " & vowel
End sub